﻿Imports Negocio
Imports Utilitario
Public Class frmAgregaCelulares

    Dim codEmpCelular As String = ""
    Dim operador As String = ""
    Dim tipo As String = ""
    Dim numero As String = ""
    Dim activo As String = ""
    Dim codCliente As String = ""

    Dim servicio1 As New ClienteNegocio
    Dim util As New Utiles

    Sub New(codEmpCelular As String, codCliente As String, operador As String, tipo As String, numero As String, activo As String)

        ' Llamada necesaria para el diseñador.
        InitializeComponent()

        ' Agregue cualquier inicialización después de la llamada a InitializeComponent().
        Me.codEmpCelular = codEmpCelular
        Me.codCliente = codCliente
        Me.operador = operador
        Me.tipo = tipo
        Me.numero = numero
        Me.activo = activo
    End Sub

    Sub mostrarBotones(x As Boolean, y As Boolean)
        btnGuardar.Visible = x
        btnActualizar.Visible = y
    End Sub

    Sub cargaInicial()
        limpiar()
        If codEmpCelular <> "" Then
            cboOperador.SelectedItem = operador
            cboTipo.SelectedItem = tipo
            txtNumero.Text = numero
            mostrarActivo(activo)
            mostrarBotones(False, True)
        End If
    End Sub

    Sub mostrarActivo(flag As String)
        If flag = "1" Then
            chkActivo.Checked = True
        Else
            chkActivo.Checked = False
        End If
    End Sub

    Sub limpiar()
        mostrarBotones(True, False)
        cboOperador.SelectedIndex = 0
        cboTipo.SelectedIndex = 0
        txtNumero.Text = ""
    End Sub

    Private Sub btnLimpiar_Click(sender As System.Object, e As System.EventArgs) Handles btnLimpiar.Click
        limpiar()
    End Sub

    Private Sub frmAgregaCelulares_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        cargaInicial()
    End Sub

    Private Sub btnGuardar_Click(sender As System.Object, e As System.EventArgs) Handles btnGuardar.Click
        If MsgBox("¿Esta seguro que desea realizar este registro?", MsgBoxStyle.Question + MsgBoxStyle.YesNo + MsgBoxStyle.DefaultButton2, "Mensajes al Usuario") = MsgBoxResult.Yes Then
            If servicio1.registrarCelularesEmpresa(codEmpCelular, cboOperador.SelectedItem.ToString, cboTipo.SelectedItem.ToString, txtNumero.Text.Trim, codCliente, IIf(chkActivo.Checked = True, "1", "0")) Then
                util.mensaje("Se registró correctamente.")
                DialogResult = Windows.Forms.DialogResult.OK
            Else
                util.mensaje("Ocurrió un error. Intentelo nuevamente.")
            End If
        End If
    End Sub

    Private Sub btnActualizar_Click(sender As System.Object, e As System.EventArgs) Handles btnActualizar.Click
        If MsgBox("¿Esta seguro que desea realizar esta actualización?", MsgBoxStyle.Question + MsgBoxStyle.YesNo + MsgBoxStyle.DefaultButton2, "Mensajes al Usuario") = MsgBoxResult.Yes Then
            If servicio1.actualizarCelularesEmpresa(codEmpCelular, cboOperador.SelectedItem.ToString, cboTipo.SelectedItem.ToString, txtNumero.Text.Trim, codCliente, IIf(chkActivo.Checked = True, "1", "0")) Then
                util.mensaje("Se actualizó correctamente.")
                DialogResult = Windows.Forms.DialogResult.OK
            Else
                util.mensaje("Ocurrió un error. Intentelo nuevamente.")
            End If
        End If
    End Sub

End Class